tm is a framework for text mining applications within R;tidyverse is an opinionated collection of R packages designed for data science. All packages share an underlying design philosophy, grammar, and data structures;tidytext allows text mining using ‘dplyr’, ‘ggplot2’, and other tidy tools;wordcloud creates word cloud;stargazer creates well-formatted regression and summary statistics tables;RColorBrewer provides more options about ColorBrewer Palettes;topicmodels topic modelinglibrary(tm)
library(tidyverse)
library(tidytext)
library(wordcloud)
library(stargazer)
library(RColorBrewer)
library(topicmodels)
load("~/Google Drive (zz2587@columbia.edu)/fall2019-proj1--zzzaaannn-master/output/processed_lyrics.RData")
# There are two typos of *year*, so correct them
dt_lyrics[which(dt_lyrics$year==702, arr.ind = TRUE),2] <- 2002
dt_lyrics[which(dt_lyrics$year==112, arr.ind = TRUE),2] <- 1998
glimpse(dt_lyrics)
## Observations: 125,704
## Variables: 7
## $ song <chr> "when-you-were-with-me", "careless-whisper", "2-59"…
## $ year <dbl> 2009, 2009, 2007, 2007, 2007, 2007, 2013, 2013, 200…
## $ artist <chr> "a", "a", "a", "a", "a", "a", "a", "a", "a", "a", "…
## $ genre <chr> "Hip-Hop", "Hip-Hop", "Hip-Hop", "Hip-Hop", "Hip-Ho…
## $ lyrics <chr> "I stopped by the house we called our home\nIt was …
## $ id <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, …
## $ stemmedwords <chr> "stop house call home rundown grass overgrown scree…
We are now in the end of second decade of 21st century. Thanks to advances in every sectors such as technology and transportation, people are living more convenient, efficient and colorful. Back to 20th century, it was hard to imagine that over 95% Americans would own a cell phone in future. Surprisingly, cell phones with keyboards fade and out, and almost everyone is using a large screen cell phone. Not only time and technology are changing rapidly, but also habits can change.
Would lyrics be different between 20th century and 21st century? Do 21st-century singers still write the similar lyrics as the past?
To answer these questions, my goal is to i)analyze the evolution of lyrics by its length, ii)compare the frequent stemmed words between centuries and examine stemmed words for genres, iii) deeper analyze topics of genres in different centuries using topic modeling
# use the original lyrics to count words instead of stemmed words
song_wrd_count <- dt_lyrics %>%
select(id,song,year,genre,lyrics) %>%
unnest_tokens(input = lyrics,output = word) %>%
group_by(id) %>%
mutate(wrd_count = n()) %>%
distinct(id,.keep_all = TRUE) %>%
select(-word)
# compute the average number of words for each year
# using sum of words / sum of number of songs for each year
avg_yr_wrd_count <- song_wrd_count %>%
group_by(year) %>%
summarise(num_song =length(song),
num_wrd = sum(wrd_count)) %>%
mutate(avg_wrd_yr = num_wrd / num_song) %>%
arrange(desc(avg_wrd_yr))
# time series plot of length of lyrics
avg_yr_wrd_count %>%
ggplot(aes(x=year,y = avg_wrd_yr))+
geom_line() +
labs(title = "Time evolution for length of lyrics",
y = "Average Words",x = "")+
theme(plot.title = element_text(hjust = 0.5),
panel.grid.major = element_blank())
The plot shows an outlier of Year 1968, which was caused by lack of data. Dataset only has one song in 1968. Other than that, there is a slightly upward trend of length of lyrics. Clearly, there exists rises and falls in the data values, which seems to be a seasonal pattern.
# divide lyrics into two parts: 20th century and 21st century by variable year
a <- avg_yr_wrd_count %>%
filter(year <= 2000) %>%
select(avg_wrd_yr) %>%
mutate(century = "20th")
b <- avg_yr_wrd_count %>%
filter(year > 2000) %>%
select(avg_wrd_yr) %>%
mutate(century = "21st")
ab <- rbind(a,b)
ggplot(data = ab,aes(x=century, y = avg_wrd_yr,color = century)) +
geom_boxplot()+
labs(title = "",
y = "Average Words",x = "")+
theme(plot.title = element_text(hjust = 0.5),
panel.grid.major = element_blank())
According to the boxplot above, we can verify that 21st century has longer lyrics than 20th century.
# divide lyrics into two parts: 20th century and 21st century by variable year
lyrics_before_2000 <- dt_lyrics %>%
filter(year <=2000) %>%
select(stemmedwords)
lyrics_after_2000 <- dt_lyrics %>%
filter(year >2000) %>%
select(stemmedwords)
# compute the frequent terms in the 20th century
before_2000_corpus <- VCorpus(VectorSource(lyrics_before_2000))
before_2000_tdm <- TermDocumentMatrix(before_2000_corpus)
before_2000_m <- as.matrix(before_2000_tdm)
before_2000_freq <- sort(rowSums(before_2000_m),decreasing = TRUE)
ggplot() +
geom_col(aes(x=reorder(names(before_2000_freq)[1:10],before_2000_freq[1:10]),y=before_2000_freq[1:10]),fill = "blue")+
theme(plot.title = element_text(hjust = 0.5),
panel.grid.major = element_blank()) +
xlab("") +
ylab("Terms Count") +
ggtitle("20th Century Most Frequently Used Words in Lyrics") +
coord_flip()
The histogram of 20th century shows that the most frequently used words are love, time, baby, youre.
# compute the frequent terms in the 21st century
after_2000_corpus <- VCorpus(VectorSource(lyrics_after_2000))
after_2000_tdm <- TermDocumentMatrix(after_2000_corpus)
after_2000_m <- as.matrix(after_2000_tdm)
after_2000_freq <- sort(rowSums(after_2000_m),decreasing = TRUE)
ggplot() +
geom_col(aes(x=reorder(names(after_2000_freq)[1:10],after_2000_freq[1:10]),y=after_2000_freq[1:10]),fill = "blue")+
theme(legend.position = "none",
plot.title = element_text(hjust = 0.5),
panel.grid.major = element_blank()) +
labs(x = "",y = "Terms Count",
title = "21st Century Most Frequently Used Words in Lyrics" )+
coord_flip()
The histogram of 21st century shows that the most frequently used words are love, time, youre, baby.
# put all the lyrics into one corpus with two documents
# one document comes from 20th century, the other comes from 21st century
bb <- paste(lyrics_before_2000, collapse = "")
aa <- paste(lyrics_after_2000,collapse = "")
all <- c(bb,aa)
all_corpus <- VCorpus(VectorSource(all))
# compute frequent terms
all_tdm <- TermDocumentMatrix(all_corpus)
colnames(all_tdm) <- c("20th","21st")
all_m <- as.matrix(all_tdm)
common_words <- subset(all_m,
all_m[,1]>0 & all_m[,2]>0
)
# terms in order with differences
difference <- abs(common_words[, 1] - common_words[, 2])
common_words <- cbind(common_words, difference)
common_words <- common_words[order(common_words[, 3],
decreasing = T), ]
# use proportion of words to compare instead of counts
# 21st century has more songs than 20th century, thus larger number of counts.
# proportion can make plot looks nicer
prop_20 <- common_words[,1]/sum(common_words[,1])
prop_21 <- common_words[,2]/sum(common_words[,2])
common_words_20 <- data.frame(terms =rownames(common_words)[1:25],
count =prop_20[1:25],
century = rep("20th",25))
common_words_21 <- data.frame(terms =rownames(common_words)[1:25],
count = prop_21[1:25],
century = rep("21st",25))
# combine into one dataframe for pyramid plot
top25_df <- rbind(common_words_20,common_words_21)
ggplot(data = top25_df,
mapping = aes(x =reorder(terms,count),
y = ifelse(century=="20th",-count,count),
fill = century))+
geom_bar(stat = "identity") +
scale_y_continuous(labels = abs)+
theme(plot.title = element_text(hjust = 0.5),
panel.grid.major = element_blank()) +
labs(x = "",y = "Propotion of Terms Count",
title = "Most Frequently Used Words in Lyrics" )+
coord_flip()
Interestingly, from the histogram, we can see that youre is getting more popular than baby . This confirms that songs of 21st century are predominantly about someone as you’re has significant number of occurrences.
yrwordcloud <- function(data){
data_corpus <- VCorpus(VectorSource(data))
data_tdm <- TermDocumentMatrix(data_corpus)
data_m <- as.matrix(data_tdm)
data_freq <- sort(rowSums(data_m),decreasing = TRUE)
wordcloud(names(data_freq),data_freq,
max.words = 100,
scale = c(10,0.2),
rot.per = 0.15,
random.order = FALSE,
colors = brewer.pal(8,"Dark2"))
}
# save the pic for nicer presentation
png("stem_20.png")
yrwordcloud(lyrics_before_2000$stemmedwords)
png("stem_21.png")
yrwordcloud(lyrics_after_2000)
The resulting word clouds (left 20th century and right 21st century) show that the most frequently used words are love, time, youre, baby.
png("all_m.png")
comparison.cloud(all_m,random.order = FALSE,
title.size = 1.5,
colors = c("darkgreen","darkred"),
max.words = 500)
Comparison Cloud
According to comparison cloud, we can see that in the 20th century, love and baby are the dominant words in lyrics while besides the most frequent words, other words are distributed evenly in the 21st century,.
genre_list <- c("Folk", "R&B", "Electronic", "Jazz", "Indie", "Country", "Rock", "Metal", "Pop", "Hip-Hop", "Other")
lyrics_before_2000 <- dt_lyrics %>%
filter(year <=2000)
lyrics_after_2000 <- dt_lyrics %>%
filter(year >2000)
# list of genres
before_2000 <- list()
after_2000 <- list()
for (i in 1:length(genre_list)) {
before_2000[[i]] <- lyrics_before_2000[lyrics_before_2000$genre == genre_list[i],"stemmedwords"]
after_2000[[i]] <- lyrics_after_2000[lyrics_after_2000$genre == genre_list[i],"stemmedwords"]
}
# choose each genre and comparison&commonality wordcloud the genre between centuries
for (i in 1:length(genre_list)) {
corpus <- Corpus(VectorSource(c(before_2000[i],after_2000[i])))
tdm <- TermDocumentMatrix(corpus)
m <- as.matrix(tdm)
colnames(m) <- c(paste("20th",genre_list[i]),paste("21st",genre_list[i]))
# save pic for nicer presentation
file = paste("comparison",genre_list[i],".png",sep = "")
png(filename = file)
comparison.cloud(m,random.order = FALSE,
title.size = 1.5,
colors = c("darkgreen","darkred"),
max.words = 500)
dev.off()
# save pic for nicer presentation
file = paste("commonality",genre_list[i],".png",sep = "")
png(filename = file)
commonality.cloud(m, max.words = 100,
scale = c(10,0.2),
rot.per = 0.15,
random.order = FALSE,
colors = brewer.pal(8,"Dark2"))
dev.off()
}
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : dragnet could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : marathon could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : millionaire could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : gorgeous could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : serenade could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : correspondence could not be fit on page. It will
## not be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : ethiopia could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : bully could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : hotter could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : attached could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : display could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : rumors could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : humble could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : impossible could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : lake could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : tickle could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : lonely could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : border could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : conquer could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : chosen could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : expand could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : front could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : belief could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : hidden could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : sunday could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : father could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : shelter could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : laugh could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : danger could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : dare could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : middle could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : tough could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : chuck could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : docker could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : laura could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : likkle could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : packet could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : blood could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : telling could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : roger could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : grade could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : heap could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : perpetual could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : rearrange could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : throught could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : bedroom could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : rape could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : afford could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : quiver could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : nearer could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : untouchable could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : mess could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : clearer could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : ooooh could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : holiday could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : gold could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : drove could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : girlfriend could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : gravity could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : trigger could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : belly could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : spend could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : degree could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : hesitate could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : reality could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : knight could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : hush could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : morning could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : seek could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : press could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : curse could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : pillow could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : shoes could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : defeat could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : refuse could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : lay could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : bored could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : chorus", could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : clock could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : miles could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : ababa could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : application could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : badadedadada could not be fit on page. It will
## not be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : budget could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : clam could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : disobey could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : epidemic could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : eyehole could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : eyesight could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : gal", could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : giddy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : jiggle could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : jonah could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : marcus could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : needy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : shashamane could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : twostep could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : wheter could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : honeysuckle could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : mercy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : passion could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : angel could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : chicago could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : roam could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : wash could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : barley could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : ringaling could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : school could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : chorus", could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : holdin could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : stephanie could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : silent could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : reflection could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : ecstasy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : glass could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : bad could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : distraction could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : wander could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : blarney could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : breezin could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : ould could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : overalls could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : threw could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : jordan could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : shamrock could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : green could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : knowing could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : baby", could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : sleigh could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : springtime could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : stand could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : wake could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : goodness could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : connection could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : country could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : game could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : watchin could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : "walk could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : yearning could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : pantomime could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : yesterday could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : twas could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : news could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : gentle could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : aww could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : doncha could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : gates could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : head could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : prelude could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : ground could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : list(stemmedwords could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : death could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : burn could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : dark could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : dead could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : night could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : light could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : hand could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : waiting could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : cry could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : fear could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : stand could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : tears could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : hear could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : hate could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : inside could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : cold could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : words could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : chorus could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : forever could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : walk could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : bring could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : watch could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : body could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : evil could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : rise could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : youll could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : breath could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : flesh could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : fight could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : eternal could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : stay could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : close could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : deep could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : power could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : earth could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : shadows could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : finally could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : wind could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : home could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : save could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : flame could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : ride could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : angel could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : heaven could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : reach could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : born could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : feeling could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : ground could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : coming could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : fade could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : fucking could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : human could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : people could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : mine could not be fit on page. It will not be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : muthaphukkin could not be fit on page. It will
## not be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : science could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : gangsta could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : drinkin could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : dirty could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : nappy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : telling could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : blessed could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : compton could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : hustle could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : sideways could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : vallejo could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : phone could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : major could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : talkin could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : benny could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : jeans could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : granny could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : satisfied could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : check could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : soba could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : chance could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : boomboom could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : yauch could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : friend could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : captain could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : horny could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : daughter could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : knowin could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : tempo could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : range could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : cmon could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : juice could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : shore could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : stuntastic could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : jam could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : circumstance could not be fit on page. It will
## not be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : pocket could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : country could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : sister could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : classy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : darling could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : revolution could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : love could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : hard could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : legit could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : cards could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : home could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : rhythm could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : cuz could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : groove could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : fool could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : anxious could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : remote could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : window could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : hooker could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : effect could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : filthy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : honey could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : mack could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : party could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : fuckn could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : forgive could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : pappy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : ten could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : record could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : playette could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : agh could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : bells could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : girlfriend could not be fit on page. It will not
## be plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : week could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : morning could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : queen could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : heezy could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : tequila could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : rick could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : bike could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : finally could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : viper could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : hillside could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : pullin could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : fiendin could not be fit on page. It will not be
## plotted.
## Warning in comparison.cloud(m, random.order = FALSE, title.size = 1.5,
## colors = c("darkgreen", : bentley could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : youre could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : night could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : game could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : people could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : stay could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : street could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : world could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : hard could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : whats could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : head could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : black could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : body could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : leave could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : damn could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : check could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : move could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : rhyme could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : home could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : fuckin could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : motherfucker could not be fit on page. It will not be
## plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : eyes could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : watch could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : pull could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : gettin could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : niggaz could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : party could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : change could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : light could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : shot could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : break could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : bring could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : bust could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : step could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : car could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : hes could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : fucking could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : told could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : dick could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : listen could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : kids could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : bout could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : mine could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : drop could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : wrong could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : crazy could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : straight could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : tonight could not be fit on page. It will not be plotted.
## Warning in wordcloud(rownames(term.matrix)[freq > 0], freq[freq > 0],
## min.freq = 0, : heart could not be fit on page. It will not be plotted.
Here are some interesting findings.
For similarities, notice that
1. Every type of genre has a common word love, except metal songs. Metal genre prefers life and time.
2. Hip-Hop music likes to use emotional intensity words such as “shit” and “bitch”.
3. In our dataset, there is no song of genre Indie for the 20th century. I guess this is because Indie music rises at the end of 20th century or the beginning of 21st century. Indie music is new to us.
Metal(Left) Other(Right)
Country(Left) Folk(Right)
Electronic(Left) Jazz(Right)
Hip-Hop(Left) Pop(Right)
R&B(Left) Rock(Right)
For differencies, all the comparsion clouds are uploaded on the output folder.
Here provide some findings
1.21st century Country music tends to use love word.
Comparison Cloud for Country
2.20th century Folk music likes word Christmas in the songs.
Comparison Cloud for Folk
3. There are many differences on choosing words for Rock music.
Comparison Cloud for Rock
Based on intriguing comparison results of genre country, folk and rock, we dig deeper to see differences in each themes of those genres using topic modeling.
lyrics_before_2000 <- dt_lyrics %>%
filter(year <=2000)
lyrics_after_2000 <- dt_lyrics %>%
filter(year >2000)
#Set parameters for Gibbs sampling
burnin <- 4000
iter <- 2000
thin <- 500
seed <-list(2003,5,63,100001,765)
nstart <- 5
best <- TRUE
#Number of topics
k <- 5
# dtm
lda.mod <- function(data,genre){
df <- data[data$genre == genre,c("stemmedwords","id")]
dtm <- df %>%
unnest_tokens(input = stemmedwords,
output = word,
drop = TRUE) %>%
count(id,word) %>%
cast_dtm(document = id, term = word, value =n)
#Run LDA using Gibbs sampling
mod <-LDA(dtm, k, method="Gibbs",
control=list(nstart=nstart,seed = seed,
best=best,burnin = burnin,
iter = iter,thin=thin))
return(mod)
}
folk_20_lda <- lda.mod(lyrics_before_2000,"Folk")
terms(folk_20_lda,10) #top 10 terms in each topic
## Topic 1 Topic 2 Topic 3 Topic 4 Topic 5
## [1,] "christmas" "black" "love" "carefree" "day"
## [2,] "holly" "earth" "snow" "highway" "ho"
## [3,] "jolly" "life" "round" "hand" "santa"
## [4,] "waiting" "light" "misfit" "jingle" "christmas"
## [5,] "time" "weak" "build" "slip" "town"
## [6,] "gold" "death" "ride" "mornin" "youre"
## [7,] "green" "soul" "wheel" "head" "claus"
## [8,] "silver" "blind" "time" "wild" "boy"
## [9,] "sun" "children" "true" "shout" "bring"
## [10,] "walk" "guide" "smile" "dark" "reindeer"
Based on the most popular terms and the most salient terms for each topic, hashtags are assigned to each topic. This part require manual setup as the topics are likely to change.
topics.hash = c("christmas","life","love","carefree","holiday")
modout <- tidy(folk_20_lda,matrix = "beta") %>%
group_by(topic) %>%
top_n(10,beta) %>%
ungroup() %>%
arrange(topic,-beta) %>%
mutate(hash = topics.hash[topic])
ggplot(data = modout, aes(reorder(term,beta),beta,fill=factor(hash))) +
geom_col(show.legend = FALSE) +
facet_wrap(~hash,scales = "free")+
coord_flip() +
scale_x_reordered()
folk_21_lda <- lda.mod(lyrics_after_2000,"Folk")
terms(folk_21_lda,10)
## Topic 1 Topic 2 Topic 3 Topic 4 Topic 5
## [1,] "time" "sea" "love" "ive" "day"
## [2,] "dream" "fall" "time" "youre" "home"
## [3,] "life" "dear" "ill" "hear" "hes"
## [4,] "eyes" "blue" "heart" "baby" "land"
## [5,] "hand" "road" "girl" "id" "theyre"
## [6,] "cry" "stand" "friend" "call" "stay"
## [7,] "god" "sweet" "sing" "head" "tree"
## [8,] "waiting" "line" "true" "walk" "youve"
## [9,] "dead" "heaven" "night" "day" "dee"
## [10,] "dog" "play" "leave" "youll" "boy"
Based on the most popular terms and the most salient terms for each topic, hashtags are assigned to each topic. This part require manual setup as the topics are likely to change.
topics.hash = c("dream","event","love","relationship","day")
modout <- tidy(folk_21_lda,matrix = "beta") %>%
group_by(topic) %>%
top_n(10,beta) %>%
ungroup() %>%
arrange(topic,-beta) %>%
mutate(hash = topics.hash[topic])
ggplot(data = modout, aes(reorder(term,beta),beta,fill=factor(hash))) +
geom_col(show.legend = FALSE) +
facet_wrap(~hash,scales = "free")+
coord_flip() +
scale_x_reordered()
21st Folk musicians write different topics. They focus on personal events rather than holiday and national culture compared to 20th century.
country_20_lda <- lda.mod(lyrics_before_2000,"Country")
terms(country_20_lda,10)
## Topic 1 Topic 2 Topic 3 Topic 4 Topic 5
## [1,] "love" "blue" "day" "time" "home"
## [2,] "heart" "night" "id" "ive" "life"
## [3,] "ill" "lord" "hear" "youre" "sweet"
## [4,] "baby" "run" "fall" "hes" "live"
## [5,] "eyes" "girl" "train" "cry" "light"
## [6,] "dream" "town" "mhm" "die" "dark"
## [7,] "mind" "walk" "sun" "leave" "soul"
## [8,] "hold" "chorus" "world" "head" "grow"
## [9,] "cold" "dance" "call" "lonely" "words"
## [10,] "lie" "deep" "blow" "hard" "waiting"
Based on the most popular terms and the most salient terms for each topic, hashtags are assigned to each topic. This part require manual setup as the topics are likely to change.
topics.hash = c("love","region","the south","relationship","nostalgia")
modout <- tidy(country_20_lda,matrix = "beta") %>%
group_by(topic) %>%
top_n(10,beta) %>%
ungroup() %>%
arrange(topic,-beta) %>%
mutate(hash = topics.hash[topic])
ggplot(data = modout, aes(reorder(term,beta),beta,fill=factor(hash))) +
geom_col(show.legend = FALSE) +
facet_wrap(~hash,scales = "free")+
coord_flip() +
scale_x_reordered()
country_21_lda <- lda.mod(lyrics_after_2000,"Country")
terms(country_21_lda,10)
## Topic 1 Topic 2 Topic 3 Topic 4 Topic 5
## [1,] "night" "love" "life" "hes" "time"
## [2,] "home" "ill" "live" "town" "youre"
## [3,] "day" "heart" "hand" "boy" "ive"
## [4,] "blue" "dream" "day" "roll" "baby"
## [5,] "light" "hold" "song" "ride" "shes"
## [6,] "run" "cry" "hear" "country" "id"
## [7,] "sun" "youll" "call" "head" "girl"
## [8,] "rain" "sweet" "lord" "em" "mind"
## [9,] "wind" "eyes" "sing" "play" "leave"
## [10,] "morning" "true" "god" "red" "tonight"
Based on the most popular terms and the most salient terms for each topic, hashtags are assigned to each topic. This part require manual setup as the topics are likely to change.
topics.hash = c("mood","love","life","relationship","time")
modout <- tidy(country_21_lda,matrix = "beta") %>%
group_by(topic) %>%
top_n(10,beta) %>%
ungroup() %>%
arrange(topic,-beta) %>%
mutate(hash = topics.hash[topic])
ggplot(data = modout, aes(reorder(term,beta),beta,fill=factor(hash))) +
geom_col(show.legend = FALSE) +
facet_wrap(~hash,scales = "free")+
coord_flip() +
scale_x_reordered()
Country music is originated in the southern United States and comes from the rural regions. However, the themes of 21st century Country music is not as classic as 20th century and begins to increasingly become a fusion of other genres such as pop and rock.
rock_20_lda <- lda.mod(lyrics_before_2000,"Rock")
terms(rock_20_lda,10)
## Topic 1 Topic 2 Topic 3 Topic 4 Topic 5
## [1,] "love" "girl" "life" "hand" "night"
## [2,] "youre" "shes" "world" "run" "day"
## [3,] "baby" "blue" "live" "call" "eyes"
## [4,] "time" "boy" "time" "head" "dream"
## [5,] "ill" "play" "lie" "friend" "light"
## [6,] "ive" "roll" "die" "people" "fall"
## [7,] "heart" "rock" "change" "hes" "tonight"
## [8,] "mind" "dance" "god" "stand" "waiting"
## [9,] "hold" "walk" "inside" "home" "sun"
## [10,] "youve" "street" "soul" "lord" "stay"
Based on the most popular terms and the most salient terms for each topic, hashtags are assigned to each topic. This part require manual setup as the topics are likely to change.
topics.hash = c("love","relationship","life","social","emotion")
modout <- tidy(rock_20_lda,matrix = "beta") %>%
group_by(topic) %>%
top_n(10,beta) %>%
ungroup() %>%
arrange(topic,-beta) %>%
mutate(hash = topics.hash[topic])
ggplot(data = modout, aes(reorder(term,beta),beta,fill=factor(hash))) +
geom_col(show.legend = FALSE) +
facet_wrap(~hash,scales = "free")+
coord_flip() +
scale_x_reordered()
rock_21_lda <- lda.mod(lyrics_after_2000,"Rock")
terms(rock_21_lda,10)
## Topic 1 Topic 2 Topic 3 Topic 4 Topic 5
## [1,] "night" "time" "baby" "lie" "love"
## [2,] "day" "youre" "girl" "die" "life"
## [3,] "home" "ill" "shes" "people" "heart"
## [4,] "run" "ive" "boy" "head" "world"
## [5,] "light" "mind" "dance" "fight" "live"
## [6,] "tonight" "waiting" "hes" "dead" "fall"
## [7,] "eyes" "leave" "play" "kill" "hold"
## [8,] "sun" "day" "rock" "hell" "dream"
## [9,] "burn" "youve" "gotta" "theyre" "eyes"
## [10,] "sky" "feeling" "roll" "hate" "cry"
Based on the most popular terms and the most salient terms for each topic, hashtags are assigned to each topic. This part require manual setup as the topics are likely to change.
topics.hash = c("personal","emotion","relationship","social","love")
modout <- tidy(rock_21_lda,matrix = "beta") %>%
group_by(topic) %>%
top_n(10,beta) %>%
ungroup() %>%
arrange(topic,-beta) %>%
mutate(hash = topics.hash[topic])
ggplot(data = modout, aes(reorder(term,beta),beta,fill=factor(hash))) +
geom_col(show.legend = FALSE) +
facet_wrap(~hash,scales = "free")+
coord_flip() +
scale_x_reordered()
The themes of rock music is extremely diverse. Not only do they stress love, but also address a wide range of themes such as society and politics.
Nowadays, singers tend to write more words than before on average.
Whatever the century is, the most frequently used words are love, time, baby, youre.
In the 21st century youre is getting more popular than baby, which shows that songs of 21st century are predominantly about someone.
Every type of genre like using word love and the themes are about love.
Indie music is getting popular at the end of 20th century or the beginning of 21st century. Indie music is new to us.
21st century Country music is not as classic as 20th century.
The themes of rock are as diverse as it should be.